home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macMenuBar.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  3.6 KB  |  141 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACMenuBar
  3. %
  4. % In this module you find the programmers interface to Menus.
  5. % It is built on top of the toolbox routines in toolboxmenus.
  6. % For a description of the routines see Inside Macintosh, chapter 9.
  7. %
  8. % 890317/Boris Magnusson
  9. % 890330/Göran Eriksson
  10. % 
  11. % ---------------------------------------------------------------------------
  12. external class MacMenu="::SInterfaces:MacMenu";
  13. external class MacPoint="::SInterfaces:MacPoint";
  14. external class toolboxmenu="::SInterfaces:toolboxmenu";
  15.  
  16. simset class MACMenuBar;
  17.     virtual: procedure doMenu is
  18.         procedure doMenu(menuid,item); integer menuid,item;;
  19. begin
  20.     ref(toolboxMenu) Trap;
  21.     integer MenuBarHandle;
  22. ! ----------------------;
  23.  
  24.     procedure doMenu(menuid,item); integer menuid,item;
  25.         inspect findMenu(Menuid) do
  26.             doMenu(Menuid,item);
  27.     
  28.     PROCEDURE InitMenus;
  29.         Trap.ToolboxInitMenus;
  30.  
  31.     ref(macMenu) procedure FindMenu(Menuid); integer MenuId;
  32.         inspect findNotice(Menuid) do
  33.             FindMenu:-aMenu;
  34.             
  35. %        FUNCTION GetNewMBar(menuBarID: INTEGER): Handle;
  36.     procedure GetNewMBar(menuBarID);
  37.         short integer menuBarID;
  38.         begin        
  39.             MenuBarHandle:=TRAP.ToolboxGetNewMBar(menuBarID);
  40.             ! build all list here and in each menu !!! ;
  41.         end;
  42.  
  43. %        PROCEDURE InsertMenu(menu: MenuHandle; beforeId: INTEGER);
  44.     PROCEDURE InsertMenu(menu, beforeId);
  45.         ref(MacMenu) menu;
  46.         short integer beforeId;
  47.         begin
  48.             ref(menuNotice) N;
  49.             TRAP.toolboxInsertMenu(menu.menuHandle, beforeId);
  50.             n:-findNotice(beforeId);
  51.             if N=/=none then
  52.                 new MenuNotice(menu).precede(N)
  53.             else
  54.                 new MenuNotice(menu).into(MenuQ);
  55.         end;
  56.  
  57. %        PROCEDURE DeleteMenu(menuId: INTEGER);
  58.     PROCEDURE DeleteMenu(menuId);
  59.         short integer menuId;
  60.         begin
  61.             findNotice(MenuId).out;
  62.             TRAP.toolboxDeleteMenu(menuId);
  63.         end;
  64.  
  65.     PROCEDURE DrawMenuBar;
  66.         TRAP.toolboxDrawMenuBar;
  67.  
  68.     PROCEDURE ClearMenuBar;
  69.     begin
  70.         TRAP.toolboxClearMenuBar;
  71.         MenuQ.clear;
  72.     end;
  73.  
  74. %        FUNCTION MenuSelect(startPt: Point): LONGINT;
  75.     integer procedure MenuSelect(startPt);
  76.         ref(MacPoint) startPt;
  77.         MenuSelect:=TRAP.toolboxMenuSelect(startPt.h,startPt.v);
  78.  
  79. %        FUNCTION MenuKey(ch: CHAR): LONGINT;
  80.     integer procedure MenuKey(ch);
  81.         character ch;
  82.         MenuKey:=TRAP.toolboxMenuKey(ch);
  83.  
  84. %        FUNCTION GetMenuBar: Handle;
  85. %    procedure GetMenuBar;
  86. %        begin
  87. %            theMenuList:=ToolboxGetMenuBar;
  88. %        end;
  89.  
  90. %        PROCEDURE SetMenuBar(menuList: Handle);
  91. %    PROCEDURE SetMenuBar(aMenuBar);
  92. %     ref(MacMenubar) aMenuBar;
  93. %     ToolboxSetMenuBar(aMenuBar.theMenuList);
  94.  
  95. %        PROCEDURE HiliteMenu(menuId);
  96.     PROCEDURE HiliteMenu(menuId);
  97.         short integer menuId;
  98.         TRAP.toolboxHiliteMenu(menuId);
  99.  
  100. %        PROCEDURE SetMenuFlash(flashCount: INTEGER);
  101.     PROCEDURE SetMenuFlash(flashCount);
  102.         short integer flashCount;
  103.         TRAP.toolboxSetMenuFlash(flashCount);
  104.  
  105. %        PROCEDURE FlashMenuBar(menuId: INTEGER);
  106.     PROCEDURE FlashMenuBar(menuId);
  107.         short integer menuId;
  108.         TRAP.toolboxFlashMenuBar(menuId);
  109.  
  110. %        FUNCTION GetMHandle(menuId: INTEGER): MenuHandle;
  111. %    ref(MacMenu) procedure GetMHandle(menuId);
  112. %        short integer menuId;
  113. %        begin
  114. %            TRAP.toolboxGetMHandle(menuId);
  115. %            GetMHandle:-FindElementWith(menuId);
  116. %        end;
  117. ! --------- Local routines -------- ;
  118.  
  119.     link class MenuNotice(aMenu); ref(macmenu) aMenu;;
  120.     ref(Head) MenuQ;
  121.     ref(MenuNotice) procedure findNotice(id); integer id;
  122.     begin
  123.         ref(MenuNotice) p;
  124.         p:-MenuQ.first;
  125.         while p=/=none and then p.aMenu.Menuid<>Id do
  126.             p:-P.suc;
  127.         findNotice:-p;
  128.     end;
  129.         
  130.     integer procedure ostype(thetext);text thetext;
  131.     begin ostype:=rank(thetext.getchar)*16R1000000+
  132.         rank(thetext.getchar)*16R10000+
  133.         rank(thetext.getchar)*16R100+
  134.         rank(thetext.getchar);
  135.     end;
  136.     
  137. ! --- Init -- ;
  138.  
  139.     TRAP:-new toolboxmenu;
  140.     MenuQ:- new Head;
  141. end --- Mac Menu Bar ---;